5 POKE55,.:POKE56,56:CLR
10 DV=PEEK(186):IFDV<8THENDV=8
15 POKE53280,0:POKE53281,0:PRINT"[147]"
16 POKE53371,0
30 AD=49152
35 SYSAD:SYSAD+12
38 BX$="[158]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_"
40 SYSAD+9,15:POKE53272,31
42 PRINT"[147][158]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
43 PRINTBX$;""TAB(38)BX$
44 PRINT"[158]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
45 PRINT"":PRINTTAB(5)"[158] [214][197][210][212][201][195][193][204] [211][213][206][196][201][193][204] [195][193][204][195][213][204][193][212][207][210] "
50 PRINT:PRINTTAB(7)"[153][217]OUR [204]ATITUDE:";:L9%=6:GOSUB500:B=Q9
52 PRINT:PRINTTAB(7)"[153][217]OUR [204]ONGITUDE:";:L9%=6:GOSUB500:L=Q9
55 IFB<0 THENPRINT"[145][145]":GOTO50
60 PRINT:PRINTTAB(7)"[153][212]IME-ZONE [205]ERIDIAN:";:L9%=3:GOSUB500:L0=Q9
65 PRINT:PRINTTAB(7)"[153][193]ZIMUTH [196]IAL [198]ACES:";:L9%=6:GOSUB500:F=Q9
70 IFF<=90ORF>=270THENPRINT"[145][145]":GOTO65
75 P1=3.14159265:R1=P1/180
80 B1=B*R1:S=0
85 PRINT:PRINTTAB(7)"[153][211]UN [197][153]AST OR [215][153]EST":CT=0
86 GETS$:IFS$<>"E"ANDS$<>"W"THEN86
88 SYSAD+9,16
90 IFS$="E"THENS=-1
95 IFS$="W"THENS=1
105 PRINT:PRINTTAB(7)"[153][196]IAL [200]EIGHT:";:L9%=3:GOSUB500:H5=Q9
110 PRINT:PRINTTAB(7)"[153][215]IDTH OF [212]HIS [208]ART:";:L9%=3:GOSUB500:W5=Q9
115 PRINT:PRINTTAB(7)"[153][211]TEP [211]IZE IN [205]INUTES:";:L9%=2:GOSUB500:G=Q9
116 PRINT:PRINTTAB(8)"[159][201]S THIS CORRECT? [217]/[206]":POKE198,0
117 GETHC$:IFHC$<>"Y"ANDHC$<>"N"THEN117
118 IFHC$="N"THEN40
120 F1=P1/2+S*R1*(180-F):PRINT
125 R5=W5/H5:Z5=S*R1*(L0-L)
130 PRINT"[147][153][204]AT:";B"[153] [204]ONG:";L;
135 PRINT"[153] [205]ERID:";L0
140 PRINT"[153] [196]IAL [198]ACES [193]ZIMUTH";F
145 GOSUB360
150 PRINT"[153][211]UN";S;"  ";W5;
155 PRINT"[153][215]IDE BY";H5;"[153][200]IGH[158]"
160 H=12-S:G=S*G/60
165 :
170 IFCT=18THENGOSUB600
172 REM CALCULATE LOOP
175 Q=Z5+S*P1*(H-12)/12
180 IFQ<0THEN230
185 IFH<4ORH>20THEN235
190 IFQ<>0THEN200
195 K=0:GOTO220
200 K0=SIN(F1)*TAN(P1/2-Q)
205 K1=COS(F1)*SIN(B1)+K0
210 IFK1=0THENK1=1E-10
215 K=COS(B1)/K1
220 GOSUB255
225 IFK>=0THENGOSUB280
230 H=H+G:GOTO170
235 GOSUB3000
245 S=0:GOTO85
250 :
255 REM DECIDE X OR Y
260 D=S*K*H5:D$="  X="
265 IFK<R5THEN275
270 D=-W5/K:D$="  *Y="
275 RETURN
280 CT=CT+1:REM PRINT A LINE
285 H0=H+.002
290 H1=INT(H0):M1=INT(60*(H0-H1))
295 M1$=STR$(100+M1)
300 M1$="[158]:"+RIGHT$(M1$,2)
305 P$=" PM "
310 IFH1<12THENP$=" AM "
315 IFH1<>12THEN325
320 IFM1=0THENP$=" NOON "
325 IFH1>12THENH1=H1-12
330 H1$=STR$(H1)
335 IFH1<10THENH1$=" "+H1$
340 D=INT(D*1000+.5)/1000
345 PRINTH1$;M1$;P$;
350 PRINTTAB(15);D$;D
355 RETURN
360 REM COMPUTE END OF STYLE
365 P5=TAN(P1/2-B1)*H5
370 Z=SIN(F1)*P5
375 Z=INT(Z*1000+.5)/1000
380 X=S*TAN(P1/2-F1)*Z
385 X=INT(X*1000+.5)/1000
390 Y=-H5
395 PRINT"[159][211]TYLE END [195]OORDINATES"
400 PRINT"[159]X=";X"[159], Y=";Y;"[159], Z=";Z"[158]"
405 RETURN
500 Q9$="":POKE198,.
505 GETA$
510 POKE646,RND(1)*15+1:PRINT"*[157]";:IFA$=""THEN505
515 IFA$=CHR$(13)THENPRINT" ":Q9=VAL(Q9$):RETURN
520 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO550
525 IFLEN(Q9$)>=L9%THENSYSAD+9,1:GOTO505
530 IF(A$>="0"ANDA$<="9")ORA$="."ORA$="-"ORA$="+"THEN540
535 GOTO505
540 Q9$=Q9$+A$
545 PRINT""A$;:SYSAD+9,16:GOTO505
550 PRINT" [157][157] [157]";:GOTO505
600 POKE214,22:PRINT:PRINTTAB(6)"[159][193]NY KEY TO CONTINUE":POKE198,0
610 GETA$:IFA$=""THEN610
615 PRINT"[147]":CT=0:GOSUB395
620 RETURN
3000 PRINT:PRINTTAB(3)"[150](1[150]) [207]THER SIDE (2[150]) [211]TART [207]VER
3010 [153][163]8)"DEF(3DEF) (null)NIVERSE MENU
3020 POKE198,0
3030 GETA$:IFA$<"1"ORA$>"3"THEN3030
3040 IFA$="1"THENPRINT"[147]":RETURN
3045 IFA$="2"THEN38
3050 SYSAD+15
3060 PRINT"[147][144]LOAD"CHR$(34)"B.UNIVERSE III"CHR$(34)","DV
3070 PRINT"RUN28"
3080 POKE631,13:POKE632,13:POKE198,2:END
10000 D=PEEK(186):N$="0:SUNDIAL MAKER":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END